set disassemble buffer in read only

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index c23dbe1e06860b29d8385b402a2e3f4169b86d20..82c8de6e133fdd482432604c0abc3870ae0cfb0c 100644 (file)
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -103,6 +103,7 @@ redefine OBJECT if it is a symbol."
               (when (re-search-forward "^.*<.*>:" nil t 2)
                 (delete-region (match-beginning 0) (point-max)))
               (asm-mode)
+              (setq buffer-read-only t)
               (cl-return-from disassemble-internal))
          (error "Can't disassemble #<subr %s>" name)))
     (if (eq (car-safe obj) 'macro)     ;Handle macros.